home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / eazybbs-2.17.lha / EazyBBS / Data / ExtFiles / pack < prev   
AmigaDOS Script File  |  1993-12-25  |  313b  |  19 lines
  1. .KEY directory/A,tofile/A
  2. .BRA {
  3. .KET }
  4.  
  5. ;
  6. ; Calculate size of directory
  7. ; ( DU is included in MB:C )
  8. ;
  9.  
  10. If `MB:C/Du -S "{directory}"` GT 2000 VAL
  11.     ; sorry, too large
  12.     Delete "{tofile}"
  13. Else
  14.     ; okay, let's pack it
  15.     LhA -a -A -b64 -e -P-1 -r -x a "{tofile}" "{directory}"
  16.     ;Rename "{tofile}.lha" "{tofile}"
  17. EndIf
  18.  
  19.